<!--#include file="functions.asp" -->
<%

'set cn=Server.CreateObject("ADODB.Connection")
'cn.Open "MP2ENTTEST2", "MP2", "MP2"
dim sql
dim i
dim count

sql = "SELECT ISNULL(COUNT(*),0) FROM EXIAUTHFINANCE "
set rs=cn.execute(sql)

count = rs(0)
set rs=nothing

for i = 1 to count
sql = " UPDATE EXIAUTHFINANCE SET "
sql = sql & "INVAMTPO=" & delkoma(Request.QueryString("invPO"&i)) & ","
sql = sql & "INVAMTNONPO=" & delKoma(Request.QueryString("invNonPO"&i)) & ""
sql = sql & " WHERE SEQNUM=" & request.querystring("seqnum"&i)
cn.execute(sql)
next

response.redirect "Fin_AUthority.asp"

%>